COMMENT ⊗   VALID 00008 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 SAIL
C00005 00003	DESTRU
C00006 00004	 DESTRU
C00007 00005	 NIL
C00008 00006	∂09-Oct-83  0957	jkf@ucbkim 	destru  
C00017 00007	 SCORE Oct 18, 1983
C00018 00008	 DEC780CL
C00019 ENDMK
C⊗;
;;; SAIL
(FASLOAD DESTRU)
(TIMIT)
Timing performed on Thursday 09/23/82 at 14:51:40.
Cpu Time = 2.472
Elapsed Time = 28.2666667
Wholine Time = 14.3
GC Time = 5.795
Load Average Before  = 1.25672555
Load Average After   = 1.73288608
Average Load Average = 1.49480581
NIL 
Timing performed on Thursday 09/23/82 at 14:52:11.
Cpu Time = 2.47
Elapsed Time = 36.883333
Wholine Time = 12.9333333
GC Time = 5.387
Load Average Before  = 1.74602473
Load Average After   = 1.88764822
Average Load Average = 1.81683648
NIL 
Timing performed on Thursday 09/23/82 at 14:52:51.
Cpu Time = 2.47
Elapsed Time = 36.0333333
Wholine Time = 13.1666666
GC Time = 5.401
Load Average Before  = 1.899001
Load Average After   = 2.04023933
Average Load Average = 1.96962017
NIL 

;;; New CPU
(timit)
Timing performed on Wednesday 10/12/83 at 21:03:14.
Cpu (- GC) Time = 2.159
Elapsed Time = 14.5
Wholine Time = 8.4333333
GC Time = 5.378
Load Average Before  = 0.209593892
Load Average After   = 0.29597497
Average Load Average = 0.25278443
NIL 
Timing performed on Wednesday 10/12/83 at 21:03:35.
Cpu (- GC) Time = 2.159
Elapsed Time = 20.0666666
Wholine Time = 9.4333333
GC Time = 5.385
Load Average Before  = 0.295405984
Load Average After   = 0.485271096
Average Load Average = 0.39033854
NIL 
Timing performed on Wednesday 10/12/83 at 21:04:12.
Cpu (- GC) Time = 2.158
Elapsed Time = 14.15
Wholine Time = 11.4
GC Time = 5.385
Load Average Before  = 0.448821545
Load Average After   = 0.5322814
Average Load Average = 0.49055147
NIL 
;;DESTRU

D3
No RPLCONS (push instead)
Elapsed	7.19
GC	3.41
CPU	3.77

With RPLCONS
Elapsed	9.02
GC	3.32
CPU	5.7

;;; DESTRU

D2
No RPLCONS (push instead)
Elapsed	38.2
GC	9.31
CPU	28.9

Elapsed	37.7
GC	9.04
CPU	28.7

With RPLCONS
Elapsed	35.3
GC	8.04
CPU	27.2

Elapsed	35.1
GC	8.17
CPU	26.9

Elapsed	35.0
GC	7.97
CPU	27.0

D1
1/25/84 with interrupts
Elapsed	37.0
CPU	26.7
GC	10.3
;;; NIL

DESTRU

Fixnum arithmetic, as always.
Curio:  NCONC uses LAST which does error and circularity checking.

cpu=14.65,elapsed=15.14,pagefaults=749
cpu=14.5,elapsed=14.68,pagefaults=724
cpu=14.6,elapsed=14.74,pagefaults=722

Inline carcdr:
cpu=9.09,elapsed=10.01,pagefaults=738
cpu=8.95,elapsed=8.96,pagefaults=734
cpu=9.02,elapsed=9.15,pagefaults=712

Another curio:  Use of SETF instead of RPLACA/D would result in
infinitessimally better code because of the different return value.
Not bothering to try this.
∂09-Oct-83  0957	jkf@ucbkim 	destru  
Received: from UCBKIM by SU-AI with TCP/SMTP; 9 Oct 83  09:56:55 PDT
Received: by ucbkim.ARPA (4.6/4.2)
	id AA17828; Sun, 9 Oct 83 10:00:19 PDT
Date: Sun, 9 Oct 83 10:00:19 PDT
From: John Foderaro (on an h19-u) <jkf@ucbkim>
Message-Id: <8310091700.AA17828@ucbkim.ARPA>
To: rpg@su-ai
Subject: destru
Cc: 

--- Benchmark destru run on ucbkim at Sat Oct 8 01:22:39 PDT 1983 by jkf
--- cpu usage: 1:22am up 1:53, 4 users, load average: 1.32, 1.38, 1.37
Franz Lisp, Opus 38.81

=> [fasl destru.o]
t
=> benchmark: test (file destru) , tranlinks: on, localf: no
executing form: (destructive 600 50)
begin (49 176)
end (765 583)
runs 1
avg cpu time 5.15, avg gc time 6.783333333333333

benchmark: test (file destru) , tranlinks: off, localf: no
executing form: (destructive 600 50)
begin (766 583)
end (1589 989)
runs 1
avg cpu time 6.95, avg gc time 6.766666666666667

nil
=> Franz Lisp, Opus 38.81

=> [fasl destru-l.o]
t
=> benchmark: test (file destru) , tranlinks: on, localf: yes
executing form: (destructive 600 50)
begin (43 173)
end (753 571)
runs 1
avg cpu time 5.2, avg gc time 6.633333333333333

benchmark: test (file destru) , tranlinks: off, localf: yes
executing form: (destructive 600 50)
begin (754 571)
end (1574 973)
runs 1
avg cpu time 6.966666666666667, avg gc time 6.7

nil
=> Franz Lisp, Opus 38.81

=> [load destru.l]
[fasl benchmac.o]
t
=> benchmark: test (file destru) , tranlinks: on, interpreted 
executing form: (destructive 600 50)
begin (66 177)
end (9984 607)
runs 1
avg cpu time 158.1333333333333, avg gc time 7.166666666666667

benchmark: test (file destru) , tranlinks: off, interpreted 
executing form: (destructive 600 50)
begin (9987 607)
end (19864 1006)
runs 1
avg cpu time 157.9666666666667, avg gc time 6.65

nil
=> --- cpu usage: 1:30am up 2 hrs, 4 users, load average: 1.28, 1.22, 1.29
--- end of benchmark destru


--- Benchmark destru run on ucbmatisse at Fri Oct 7 10:59:38 PDT 1983 by jkf
--- cpu usage: 10:59am up 3 days, 22:45, 2 users, load average: 1.00, 1.04, 1.09
Franz Lisp, Opus 38.81

=> [fasl destru.o]
t
=> benchmark: test (file destru) , tranlinks: on, localf: no
executing form: (destructive 600 50)
begin (118 197)
end (1056 614)
runs 1
avg cpu time 8.683333333333333, avg gc time 6.95

benchmark: test (file destru) , tranlinks: off, localf: no
executing form: (destructive 600 50)
begin (1059 614)
end (2179 1073)
runs 1
avg cpu time 11.01666666666667, avg gc time 7.65

nil
=> Franz Lisp, Opus 38.81

=> [fasl destru-l.o]
t
=> benchmark: test (file destru) , tranlinks: on, localf: yes
executing form: (destructive 600 50)
begin (118 195)
end (1060 609)
runs 1
avg cpu time 8.8, avg gc time 6.9

benchmark: test (file destru) , tranlinks: off, localf: yes
executing form: (destructive 600 50)
begin (1062 609)
end (2209 1072)
runs 1
avg cpu time 11.4, avg gc time 7.716666666666667

nil
=> Franz Lisp, Opus 38.81

=> [load destru.l]
[fasl benchmac.o]
t
=> benchmark: test (file destru) , tranlinks: on, interpreted 
executing form: (destructive 600 50)
begin (143 201)
end (16300 702)
runs 1
avg cpu time 260.9333333333333, avg gc time 8.35

benchmark: test (file destru) , tranlinks: off, interpreted 
executing form: (destructive 600 50)
begin (16304 702)
end (32406 1254)
runs 1
avg cpu time 259.1666666666667, avg gc time 9.2

nil
=> --- cpu usage: 11:11am up 3 days, 22:57, 3 users, load average: 1.05, 1.16, 1.15
--- end of benchmark destru

--- Benchmark destru run on ucbmike at Fri Oct 7 12:05:16 PDT 1983 by jkf
--- cpu usage: 12:05pm up 2:37, 0 users, load average: 1.08, 1.06, 1.06
Franz Lisp, Opus 38.79
-> [fasl destru.o]
t
-> benchmark: test (file destru) , tranlinks: on, localf: no
executing form: (destructive 600 50)
begin (89 322)
end (1469 863)
runs 1
avg cpu time 13.98333333333333, avg gc time 9.016666666666667

benchmark: test (file destru) , tranlinks: off, localf: no
executing form: (destructive 600 50)
begin (1473 863)
end (3164 1406)
runs 1
avg cpu time 19.13333333333333, avg gc time 9.050000000000001

nil
-> Franz Lisp, Opus 38.79
-> [fasl destru-l.o]
t
-> benchmark: test (file destru) , tranlinks: on, localf: yes
executing form: (destructive 600 50)
begin (88 324)
end (1471 866)
runs 1
avg cpu time 14.01666666666667, avg gc time 9.033333333333333

benchmark: test (file destru) , tranlinks: off, localf: yes
executing form: (destructive 600 50)
begin (1475 866)
end (3167 1409)
runs 1
avg cpu time 19.15, avg gc time 9.050000000000001

nil
-> Franz Lisp, Opus 38.79
-> [load destru.l]
[fasl benchmac.o]
t
-> benchmark: test (file destru) , tranlinks: on, interpreted 
executing form: (destructive 600 50)
begin (120 328)
end (19517 904)
runs 1
avg cpu time 313.6833333333333, avg gc time 9.6

benchmark: test (file destru) , tranlinks: off, interpreted 
executing form: (destructive 600 50)
begin (19525 904)
end (38990 1556)
runs 1
avg cpu time 313.55, avg gc time 10.86666666666667

nil
-> --- cpu usage: 12:19pm up 2:51, 0 users, load average: 1.01, 1.03, 1.04
--- end of benchmark destru


;;; SCORE Oct 18, 1983

LISP
LOAD(DESTRU.IL)
MAKEFILE(DESTRUCTIVE)
BCOMPL(DESTRUCTIVE)
ST
(TIME (DESTRUCTIVE 600 50) 1 3)
(TIME (DESTRUCTIVE 600 50) 1 3)

collecting lists
10381, 10381 free cells

collecting lists
10521, 10521 free cells

collecting lists
10521, 10521 free cells

collecting lists
10521, 10521 free cells
43105 conses
9.206 seconds
1.427 seconds, garbage collection time
((1 1 2) (1 1 1) (1 1 1 2) (1 1 1 1) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2)
 (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 3))
←

;;; DEC780CL

	cpu + probability x gc
DESTRU	7.7 + 0.2 x 16